﻿Module ModDatabase

    Public Function ReadXml(ByVal Query As String, ByVal Path As String) As String
        Try
            Dim XmlDoc As New XmlDocument

            XmlDoc.Load(Path)
            Return XmlDoc.SelectSingleNode(Query).InnerText

        Catch ex As Exception
            Return String.Empty
        End Try
    End Function

#Region " The Subs"


#End Region

End Module
